﻿Module Module1
  Sub Main()

    Console.Write("AltKeyDown:   ")
    Console.WriteLine(My.Computer.Keyboard.AltKeyDown)
    Console.Write("CapsLock:     ")
    Console.WriteLine(My.Computer.Keyboard.CapsLock)
    Console.Write("CtrlKeyDown:  ")
    Console.WriteLine(My.Computer.Keyboard.CtrlKeyDown)
    Console.Write("NumLock:      ")
    Console.WriteLine(My.Computer.Keyboard.NumLock)
    Console.Write("ScrollLock:   ")
    Console.WriteLine(My.Computer.Keyboard.ScrollLock)
    Console.Write("ShiftKeyDown: ")
    Console.WriteLine(My.Computer.Keyboard.ShiftKeyDown)
    Console.ReadLine()

  End Sub
End Module
